home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 15-01.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  751b  |  38 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. Status = SETMEM(-2*(64000+16))
  6.  
  7. INPUT "Which video mode"; Mode
  8.  
  9. IF FGtestmode(Mode,0) = 0 THEN
  10.    PRINT "Your system does not support that video mode."
  11.    STOP
  12. ELSEIF FGtestmode(Mode,3) = 0 THEN
  13.    PRINT "Your system does not have enough memory."
  14.    STOP
  15. END IF
  16.  
  17. Original& = FGmemavail
  18. OldMode = FGgetmode
  19. FGsetmode Mode
  20. Mem0& = FGmemavail
  21. Status = FGallocate(1)
  22. Mem1& = FGmemavail
  23. Status = FGallocate(2)
  24. Mem2& = FGmemavail
  25.  
  26. Status = FGfreepage(1)
  27. Status = FGfreepage(2)
  28. FGsetmode OldMode
  29. FGreset
  30.  
  31. PRINT "originally     ="; Original&
  32. PRINT "after setmode  ="; Mem0&
  33. PRINT "after 1st page ="; Mem1&
  34. PRINT "after 2nd page ="; Mem2&
  35. PRINT "at end         ="; FGmemavail
  36.  
  37. END
  38.